Fuente: Elaboración propia con datos del SIE, Banxico
Fuente: Elaboración propia con datos del SIE, Banxico
Estos son los metadatos disponibles en la API de Banxico
[,1]
idSerie "SF46410"
title "Cotización de las divisas que conforman la canasta del DEG Respecto al peso mexicano Euro"
startDate "1999-01-04"
endDate "2022-07-06"
frequency "Diaria"
dataType "Tipo de Cambio"
unit "Pesos"
Fuente: Elaboración propia con datos del SIE, Banxico
Fuente: Elaboración propia con datos del SIE, Banxico
Fuente: Elaboración propia con datos del SIE, Banxico
Fuente: Elaboración propia con datos del SIE, Banxico
---
title: "Mi primer flexdashboard"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: readable
source_code: embed
logo: "imcosmall.png"
favicon: "imcosmall.png"
social: "linkedin"
navbar:
- {title: "IMCO", href: "https://imco.org.mx/", align: right, icon: fa-home}
---
```{r setup, include=FALSE}
library(flexdashboard)
library(siebanxicor) # Para conectarse a la API de Banxico
library(tidyverse) # Para manipular bases de datos y hacer gráficas
library(reactable) # Para hacer tablas interactivas
library(plotly) # Para hacer que nuestras gráficas sean interactivas
setToken("47a85a927b26df88df8a8df82ae6716ff2ae3bd46bd506e1348d098ee213b076")
```
Pesos por Euros
============================================
Row
-----------------------------------------------------------------------
### Grafica del tipo de cambio pesos por euros
```{r}
serie1 <- "SF46410"
datos1 <- getSeriesData(serie1, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos1) <- c("Fecha", "Pesos_por_euros")
grafica1 <- datos1 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_euros), col = "darkblue")
ggplotly(grafica1)
```
> Fuente: Elaboración propia con datos del SIE, Banxico
Row {data-height=500}
-----------------------------------------------------------------------
### Tabla de datos históricos del tipo de cambio pesos por euros
```{r}
reactable(datos1)
```
> Fuente: Elaboración propia con datos del SIE, Banxico
### Metadatos
Estos son los metadatos disponibles en la API de Banxico
```{r}
t(getSeriesMetadata(serie1, locale = "es"))
```
Pesos por Yen {data-orientation=columns}
==================================================
Column {data-width=750}
--------------------------------------------------
### Gráfica de tipo de cambio, pesos por yen
```{r}
serie2 <- "SF46406"
datos2 <- getSeriesData(serie2, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos2) <- c("Fecha", "Pesos_por_yen")
grafica2 <- datos2 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_yen), col = "red")
ggplotly(grafica2)
```
> Fuente: Elaboración propia con datos del SIE, Banxico
Column
---------------------------------------------------------------
### Tabla de datos históricos, pesos por yen
```{r}
reactable(datos2)
```
> Fuente: Elaboración propia con datos del SIE, Banxico
Pesos por libras
====================================================
Row
------------------------------------------------
### Gráfica de tipo de cambio pesos por libra
```{r}
serie3 <- "SF46407"
datos3 <- getSeriesData(serie3, "1950-01-01", Sys.Date()) %>% data.frame()
colnames(datos3) <- c("Fecha", "Pesos_por_libras")
grafica3 <- datos3 %>% ggplot() + geom_line(aes(Fecha, Pesos_por_libras), col = "purple")
ggplotly(grafica3)
```
> Fuente: Elaboración propia con datos del SIE, Banxico
### Descargando varios datos
```{r}
varias_series <- c("SF46410", "SF46406", "SF46407")
varios_datos <- getSeriesData(varias_series, "2020-01-01", Sys.Date())
reactable(data.frame(varios_datos))
```
> Fuente: Elaboración propia con datos del SIE, Banxico